home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / tlxum_d.arc / F2-PROT.SLT < prev    next >
Text File  |  1990-06-03  |  709b  |  36 lines
  1. main()
  2. {
  3.   str cmdline[255];
  4.   str BaudStr[7];
  5.   str PortStr[2];
  6.   str FileList[64];
  7.  
  8.   itos(get_port(), PortStr);
  9.   itos(get_baud(), BaudStr);
  10.  
  11.   // get current port number
  12.   strcat(cmdline, "port ");
  13.   strcat(cmdline, PortStr);
  14.  
  15.   // get current comm. port speed
  16.   strcat(cmdline, " speed ");
  17.   strcat(cmdline, BaudStr);
  18.  
  19.   // cts handshake, estimate transfer time
  20.   strcat(cmdline, " ha cts est 0 ");
  21.   if (BaudStr == "19200")
  22.     strcat(cmdline, "11000");
  23.   else
  24.     strcat(cmdline, BaudStr);
  25.  
  26.   strcat(cmdline, " D pL1024 pa8000 sb -y @");
  27.  
  28.   FileList = _telix_dir;
  29.   strcat(FileList, "tlxum.up");
  30.  
  31.   strcat(cmdline, FileList);
  32.  
  33.   run("DSZ", cmdline, 0);
  34.   alarm(2);
  35. }
  36.